10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 DIMMC(12):FORJF=1TO12:READMC(JF):NEXT
30 POKE53280,6:POKE53281,15:PRINT"[151]"
40 POKE 55,0:POKE 56,76:RD=(null)/180:SM$(0)="OFF":SM$(1)="ON(PRESS S TO STOP)"
50 LT=40:LG=75:TZ=5:YY=1990:MM=1:DD=1:LA=LT*RD:AH=10:AP$="PM"
60 PRINT"[147]";:PRINTTAB(14) " STARS II [146]":PRINT
70 PRINTTAB(12)"COPYRIGHT 1989":PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
80 PRINTTAB(10)"ALL RIGHTS RESERVED":PRINT:PRINT
90 PRINTTAB(8)"PLEASE WAIT 40 SECONDS[146]"
100 FORI=0TO7:READDF$(I):NEXT
110 FOR I=1TO33:READA:POKE49151+I,A:NEXT
120 POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
130 SYS49152:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
140 DEF FNAC(X)=(ATN(ABS(SQR(1-X*X)/X))+(SGN(X)-1)*(null)/2)*SGN(X)
150 DEF FNAS(X)=ATN(ABS(X)/(SQR(1-X*X)))*SGN(X)
160 FOR I=0TO5:READ P$(I),PS(I),TP(I),E(I),W(I),EC(I),A(I),I(I),O(I),T0(I):NEXT
170 FOR I=1TO4:READPO(I),DI(I):NEXT:GOSUB980
180 FORI=0TO3:A%(I)=PEEK(63+I):NEXT:GOSUB1680
190 PRINT"[147] STARS II [146]":GOSUB1230:PRINT" MENU [146]"
200 PRINT"1 - OVERHEAD SKY PLOT"
210 PRINT"2 - EASTERN HORIZON PLOT"
220 PRINT"3 - SOUTHERN HORIZON PLOT"
230 PRINT"4 - WESTERN HORIZON PLOT"
240 PRINT"5 - SOLAR SYSTEM DATA"
250 PRINT"6 - SET DATE & TIME"
260 PRINT"7 - TRAVEL"
270 PRINT"8 - CONSTELLATIONS"
280 PRINT"9 - SIMULATION MODE: ";SM$(SM)
290 PRINT"Q - QUIT"
300 POKE198,0:WAIT198,1:GETA$:QM=VAL(A$):IFA$="Q"THENPRINT"[147]":END
310 POKE53280,6:IFQM>9ORQM=0THEN300
320 DF$="E":DF=0:DQ=1:J=0:ONQMGOTO350,350,330,340,370,400,410,470,520
330 DF$="S":DF=(null)/2:DQ=3:GOTO350
340 DF$="W":DF=(null):DQ=5
350 GOSUB700:GOSUB1080:GOSUB760:IFA$="S"THEN650
360 GOTO530
370 POKE53280,6:PRINT"[147] THE SKY [146]":GOSUB1230
380 PRINT" SIDEREAL TIME="INT(TS)"HRS"INT((TS-INT(TS))*60)"MIN"
390 GOSUB700:GOSUB760:GOSUB680:GOTO190
400 GOSUB1680:GOTO190
410 INPUT"[147]LATITUDE=";LT:IFABS(LT)>89.9THENLT=89.9*SGN(LT)
420 LA=LT*RD:PRINT"CHANGE LONGITUDE (Y/N)? "
430 POKE198,0:WAIT198,1:GETA$:IFA$="Y"THEN450
440 GOTO190
450 INPUT"LONGITUDE=";LG
460 INPUT"TIME ZONE (EST=5 CST=6 MST=7 PST=8):";TZ:GOSUB2000:GOTO190
470 POKE53280,6:PRINT"[147]CONSTELLATION LIST"
480 READRA:IFRA>0THENREADDC,MG:GOTO480
490 J=J+1:READLB$:IFLB$="END"THENGOSUB690:GOSUB680:GOTO190
500 READA$:PRINTLB$TAB(12)A$:IFJ<20THEN480
510 GOSUB680:J=0:GOTO470
520 SM=1-SM:HD=0:AT$="S":T$="":GOTO190
530 GETA$:IFA$="S"THEN650
540 READRA:IFRA>0THEN570
550 READLB$:IFLB$="END"THEN610
560 READA$:X=907:BH=0:GOSUB1390:GOSUB1420:GOTO530
570 READDC,MG:IFBH=1THENMG=5:GOTO530
580 GOSUB2160:IFAL<0THENMG=5:BH=1:GOTO530
590 GOSUB1480:IFX>0THENGOSUB1300
600 GOTO530
610 IFSM=0THEN640
620 MM=MM+1:IFMM=13THENMM=1:YY=YY+1
630 GOSUB690:GOSUB2000:GOTO350
640 LB$="PRESS RETURN":X=907:GOSUB1420:POKE198,0:WAIT198,1
650 GOSUB690:SM=0
660 POKE53272,20:POKE56576,3:POKE53265,PEEK(53265)AND223:POKE648,4:POKE53280,6
670 GOTO190
680 PRINT"PRESS ANY KEY":POKE198,0:WAIT198,1:RETURN
690 FORI=0TO3:POKE63+I,A%(I):NEXT:RETURN
700 MD=2*(null)/365.2422*DA-.0656743:GOSUB1560
710 MD=MD+2*EC(0)*SIN(MD)+4.9322377:GOSUB1560
720 L=MD:B=0:GOSUB1610:GOSUB2160
730 BG=0:IF(AL/RD)>-10THENBG=6
740 IF(AL/RD)>0 THEN BG=14
750 RETURN
760 PRINTTAB(8)" ALT             DISTANCE  "
770 PRINTTAB(8)"(DEG)   VIEW   (MILLION MI)"
780 K=0:GOSUB1390:LB$="SUN":X=907:BH=0:GOSUB1420:GOSUB1210
790 GOSUB1480:GOSUB1370
800 GOSUB950:LE=LP:RE=RP:PRINTTAB(25)INT(RP*930)/10
810 FOR K=1 TO 5:GETA$:IFA$="S"THENRETURN
820 GOSUB950:PSI=FNAS(SIN(LP-O(K))*SIN(I(K)))
830 Y=SIN(LP-O(K))*COS(I(K)):X=COS(LP-O(K))
840 GOSUB1640:L1=O(K)+R0:R1=RP*COS(PSI):IFK>2THEN880
850 A1=ATN((R1*SIN(LE-L1))/(RE-R1*COS(LE-L1)))
860 MD=((null)+LE+A1):GOSUB1560:L=MD
870 B=ATN(R1*TAN(PSI)*SIN(L-L1)/(RE*SIN(L1-LE))):GOTO900
880 MD=ATN(RE*SIN(L1-LE)/(R1-RE*COS(L1-LE)))+L1:GOSUB1560:L=MD
890 B=ATN(R1*TAN(PSI)*SIN(L-L1)/(RE*SIN(L1-LE)))
900 GOSUB1610:GOSUB2160:GOSUB1210
910 LB$=P$(K):X=907:BH=0:GOSUB1390:GOSUB1420
920 DP=SQR(RE*RE+RP*RP-2*RE*RP*COS(LP-LE))
930 PRINTTAB(25)INT(DP*93)
940 GOSUB1480:GOSUB1370:NEXT:RETURN
950 MD=360/365.2422*DA/TP(K)*RD:GOSUB1560:NP=MD
960 MD=NP+2*EC(K)*SIN(NP+E(K)-W(K))+E(K):GOSUB1560:LP=MD
970 RP=A(K)*(1-EC(K)*EC(K))/(1+EC(K)*COS(LP-W(K))):RETURN
980 S8=32769:L8=8191:N6=32768:POKE40959,0:GOSUB1440:AD=N6
990 FOR I=1TO180STEP2:X0=127*SIN(2*I*RD)+127:Y0=100*COS(2*I*RD)+100
1000 GOSUB1270:NEXT
1010 FORJ=1TO4:X=PO(J):Y=DI(J):GOSUB1430:NEXT:Q1=72:Q2=192:GOSUB1050
1020 GOSUB1070:FORI=0TO39:X=760+I:Y=512:GOSUB1430:NEXT
1030 Q1=880:Q2=888:GOSUB1050
1040 S8=30576:L8=2047:N6=19456:GOSUB1440:RETURN
1050 FORI=0TO5:J=INT(I/3):X=Q1*(1-J)+Q2*J+(I-3*J)*40
1060 Y=PS(I):GOSUB1430:LB$=P$(I):X=X+1:GOSUB1420:NEXT:RETURN
1070 S8=24577:L8=8191:N6=24576:POKE32767,0:GOSUB1440:AD=N6:RETURN
1080 POKE53280,BG:AD=24576:S8=23553:L8=1001:N6=23552:POKE24553,BG+16:GOSUB1440
1090 IFQM=1THENS8=32768:L8=8191:N6=AD:GOSUB1440:GOTO1120
1100 GOSUB1070:S8=19456:L8=2047:N6=30576:GOSUB1440
1110 FORI=0TO2:LB$=DF$(I+DQ):X=809+I*10:GOSUB1420:NEXT
1120 POKE53265,PEEK(53265)OR32:POKE53272,120:POKE56576,2:AD=24576
1130 X=947:LB$=STR$(MM):GOSUB1400
1140 X=949:Y=376:GOSUB1430
1150 X=951:LB$=STR$(DD):GOSUB1400
1160 X=953:Y=376:GOSUB1430
1170 X=955:LB$=STR$(YY):GOSUB1400
1180 X=987:LB$=STR$(AH):GOSUB1400:X=989:Y=464:GOSUB1430
1190 X=990:LB$=STR$(INT(AN)):IFLEN(LB$)=2THENLB$=" 0"+RIGHT$(LB$,1)
1200 GOSUB1400:X=993:LB$=AP$:GOSUB1420:RETURN
1210 PRINTP$(K);TAB(8);INT(AL*180/(null));
1220 PRINTTAB(16);DF$(INT(AZ*4/(null)));:RETURN
1230 PRINT" LATITUDE="LT;:IFLG<>75THENPRINT"  LONGITUDE"LG;
1240 PRINT"":PRINTMM"/"DD"/"YY
1250 LB$=STR$(INT(AN)):IFLEN(LB$)=2THENLB$=" 0"+RIGHT$(LB$,1)
1260 PRINTAH":"LB$" "AP$;T$:RETURN
1270 XC=INT(X0/8):YR=INT(Y0/8):LN=Y0AND7
1280 PT=AD+YR*320+XC*8+LN:XB=7-(X0AND7)
1290 POKEPT,PEEK(PT)OR2^XB:RETURN
1300 ONMGGOTO1310,1340,1350,1350,1360
1310 X0=X:Y0=Y+1:GOSUB1270:X0=X+1:Y0=Y:GOSUB1270:X0=X+2:Y0=Y:GOSUB1270
1320 X0=X+3:Y0=Y+1:GOSUB1270
1330 X0=X+1:Y0=Y+2:GOSUB1270:X0=X+2:Y0=Y+2:GOSUB1270
1340 X0=X+1:Y0=Y+1:GOSUB1270
1350 X0=X+2:Y0=Y+1:GOSUB1270
1360 RETURN
1370 IFX=0THENRETURN
1380 X=INT(Y/8)*40+INT(X/8):Y=PS(K):GOSUB1430:RETURN
1390 S8=31833:L8=97:N6=31832:POKES8+L8,0:GOSUB1440:RETURN
1400 FORJ=1TOLEN(LB$)-1:Y=(VAL(MID$(LB$,J+1,1))+48)*8:GOSUB1430:X=X+1
1410 NEXT:RETURN
1420 FORJ=1TOLEN(LB$):Y=(ASC(MID$(LB$,J,1))-64)*8:GOSUB1430:X=X+1:NEXT:RETURN
1430 L8=7:S8=21504+ABS(Y):N6=AD+X*8:GOSUB1440:RETURN
1440 A%=L8/256:B%=N6/256+A%:B6=N6+256*(A%-B%)
1450 C%=S8/256+A%:C6=S8+256*(A%-C%)
1460 POKE781,A%+1:POKE782,L8-256*A%:POKE91,C%:POKE90,C6:POKE89,B%:POKE88,B6
1470 SYS41964:RETURN
1480 X=0:Y=0:IFAL<0THENRETURN
1490 IFQM>1THEN1530
1500 AZ=2*(null)-AZ:Q=SIN((null)/4-AL/2)/COS((null)/4-AL/2)
1510 X=INT((100*Q*SIN(AZ)+100)*1.27)
1520 Y=99-INT(100*Q*COS(AZ)):RETURN
1530 IFAL>.85*(null)/2THENRETURN
1540 IFAZ<DF OR AZ>DF+(null)THENX=0:Y=0:RETURN
1550 X=320*(AZ-DF)/((null)):Y=10+146*(.85*(null)/2-AL)/(.85*(null)/2):RETURN
1560 IF MD<4*(null)THENMD=MD-INT((MD+2*(null))/2/(null))*2*(null)
1570 IF MD>4*(null)THENMD=MD-INT((MD-2*(null))/2/(null))*2*(null)
1580 IFMD<0THENMD=MD+2*(null):GOTO1580
1590 IFMD=>2*(null)THENMD=MD-2*(null):GOTO1590
1600 RETURN
1610 EP=.4091:D8=SIN(B)*COS(EP)+COS(B)*SIN(EP)*SIN(L):DC=FNAS(D8)/RD
1620 Y=SIN(L)*COS(EP)-TAN(B)*SIN(EP):X=COS(L):GOSUB1640
1630 RA=R0/RD/15:RETURN
1640 R0=ATN(Y/X):IF X>0 AND Y<0 THEN R0=R0+2*(null)
1650 IF X<0 AND Y>0 THEN R0=R0+(null)
1660 IF X<0 AND Y<0 THEN R0=R0+(null)
1670 RETURN
1680 HD=0:AT$="S":T$="":POKE53280,6
1690 PRINT"[147]YEAR:[146] ";YY;"[157]";
1700 YR$=STR$(YY):GOSUB3090:YY=VAL(YR$)
1710 PRINT:PRINT"MONTH (1-12):[146] ";"[157]";MM;"[157]";
1720 YR$=STR$(MM):GOSUB3090:MM=VAL(YR$):IFMM>12ORMM<1THENPRINT"[157]";:GOTO1720
1730 GOSUB3150
1740 PRINT:PRINT"DAY:[146] ";DD;:PRINT"[157]";
1750 YR$=STR$(DD):GOSUB3090:DD=VAL(YR$):IFDD<1THENPRINT"[157]";:GOTO1750
1760 GOSUB3150:IFMM<>2THEN1830
1770 IFL1=1THEN1830
1780 IFDD<29THEN1840
1790 PRINT:PRINT"NOT A LEAP YEAR!":GOTO1740
1800 GOSUB3150:IFL1=0ORMM<>2THEN1830
1810 IFDD<30THEN1840
1820 PRINT:PRINT"NOT A LEAP YEAR!":GOTO1740
1830 IFDD>MC(MM)THENPRINT"[157]";:GOTO1750
1840 PRINT:IFMM<4ORMM>10THEN1890
1850 PRINT"STANDARD OR DAYLIGHT TIME (S OR D) [146] ";
1860 GET AT$:IF AT$=""THEN1860
1870 IFAT$<>"D"ANDAT$<>"S"THEN1860
1880 PRINTAT$
1890 IFAT$="D"THENHD=1:T$=" DAYLIGHT TIME"
1900 PRINT"HOUR (1-12):[146] ";AH;:PRINT"[157]";
1910 YR$=STR$(AH):GOSUB3090:AH=VAL(YR$):IFAH>12ORAH=0THENPRINT"[157]";:GOTO1910
1920 PRINT:PRINT"MINUTE (0-59):[146] ";AN;:PRINT"[157]";
1930 YR$=STR$(AN):GOSUB3090:AN=VAL(YR$):IFAN>59THENPRINT"[157]";:GOTO1930
1940 PRINT:PRINT"AM OR PM (A OR P):";
1950 GET A$:IF A$=""THEN1950
1960 IF A$<>"A"ANDA$<>"P"THEN1950
1970 PRINT"[147]"
1980 PRINT"[147]":AP$=A$+"M"
1990 IFAH=12ANDAP$="AM"THENAH=0
2000 IFAP$="PM"ANDAH<12THENAH=AH+12
2010 M5=MM:D5=DD:MM=1:DD=0:GOSUB2300:T0=((JD+FD)-2415020)/36525:MM=M5:DD=D5
2020 J0=JD:B0=24-(6.6460656+(2400.051262*T0)+(.2581*1E-4*T0^2)-(24*(YY-1900)))
2030 GOSUB2300:DY=JD-J0
2040 FD=.5+(AH+AN/60+TZ-HD)/24:IFFD>1THENFD=FD-1:JD=JD+1
2050 IFAH>12THENAH=AH-12
2060 DA=JD-2444238.5+FD:D3=JD-2451545
2070 T1=INT(D3/36525)
2080 T2=(JD-T1*36525-2451544.5)/36525
2090 S3=24110.54841+184.812866*T1+8640184.812866*T2+.093104*T3*T3
2100 S3=(S3-0.0000062*T3*T3*T3)/86400:S3=24*(S3-INT(S3)+(FD-.5)*1.002737909)
2110 IF S3<0 THEN S3=S3+24
2120 IF S3>24THEN S3=S3-24
2130 H3=INT(S3):M3=INT(60*(S3-H3))
2140 TG=H3+M3/60:TS=TG-LG/15:IFTS<0THENTS=TS+24
2150 RETURN
2160 DC=DC*RD:RA=RA*15*RD
2170 T5=TG*15*RD-RA-LG*RD
2180 S1=SIN(LA)*SIN(DC)+COS(LA)*COS(DC)*COS(T5)
2190 C1=1-S1*S1
2200 IFC1>0THENC1=SQR(C1)
2210 IFC1<=0THENAL=SGN(S1)*(null)/2:GOTO2230
2220 AL=ATN(S1/C1)
2230 C2=COS(LA)*SIN(DC)-SIN(LA)*COS(DC)*COS(T5)
2240 S2=-COS(DC)*SIN(T5)
2250 IFC2=0THENAZ=SGN(S2)*(null)/2:GOTO2280
2260 AZ=ATN(S2/C2)
2270 IFC2<0THENAZ=AZ+(null)
2280 IFAZ<0THENAZ=AZ+2*(null)
2290 RETURN
2300 D1=INT(DD):FD=DD-D1-.5
2310 JD=-INT(7*(INT((MM+9)/12)+YY)/4)
2320 S=SGN(MM-9):A=ABS(MM-9)
2330 J1=INT(YY+S*INT(A/7))
2340 J1=-INT((INT(J1/100)+1)*3/4)
2350 JD=JD+INT(275*MM/9)+D1+J1+1721029+367*YY
2360 IFFD<0THENFD=FD+1:JD=JD-1
2370 DA=JD-2444238.5+FD
2380 RETURN
2390 DATA 31,29,31,30,31,30,31,31,30,31,30,31
2400 DATA"N","NE","E","SE","S","SW","W","NW"
2410 DATA 169,0,133,251,133,253,169,208,133,252,169,84,133,254,162,16,160,0
2420 DATA 177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
2430 DATA"SUN",648
2440 DATA1.00004,1.7249707,1.790645,.016718,1,0,0,0
2450 DATA"MERCURY",720
2460 DATA.24085,4.0368994,1.3464205,.2056306,.3870986,.12224911,.83940167,6.74
2470 DATA"VENUS",664,.61521
2480 DATA6.2087212,2.2914354,.0067826,.7233316,.05924407,1.3351725,16.92
2490 DATA"MARS",520,1.88089
2500 DATA2.2044875,5.8589101,.0933865,1.5236883,.03228512,.8622485,9.36
2510 DATA"JUPITER",696,11.86224
2520 DATA2.5650495,.24451276,.0484658,5.202561,.02276227,1.7497278,196.74
2530 DATA"SATURN",728,29.45771
2540 DATA2.88541742,1.6173163,.0556155,9.554747,.04344777,1.980753,165.6
2550 DATA 16,112,480,40,976,152,511,184
2560 DATA -2,"POLARIS","THE NORTH STAR",2,89,2
2570 DATA -1,"BIG DIPPER","OR URSA MAJOR, A LARGE BEAR"
2580 DATA 11,57,2,11,63,2,11.8,54,2,12.2,58,3,12.9,57,2,13.4,55,2,13.7,50,2
2590 DATA-2,"BOOTES","THE HERDSMAN",14.3,19,1,14.7,27,2,14.5,38,3
2600 DATA -1,"VIRGO","THE VIRGIN",13.4,-11,1,12.6,-1,3,12.9,3,3,13,11,3
2610 DATA -1,"PEGASUS","THE WINGED HORSE",0.2,15,3,23,14,2,23,28,2,.1,29,2
2620 DATA -1,"AURIGA","THE CHARIOT DRIVER"
2630 DATA 5.2,46,1,5.9,45,2,5.9,37,2,4.9,33,3,5.4,29,2
2640 DATA -1,"ORION","THE HUNTER",5.9,8,1,5.4,7,2,5.75,-2,2,5.6,-1,2
2650 DATA 5.45,0,2,5.6,-5.5,4,5.2,-8.5,1,5.8,-10,2
2660 DATA -1,"LYRA","THE LYRE",18.6,39,1,-9,"CYGNUS","THE SWAN"
2670 DATA 20.7,45,1,20.3,40,2,19.7,45,3,20.75,34,2,19.5,28,3,19.9,35,4
2680 DATA-1,"ARIES","THE RAM",2.1,23.5,2,1.8,21,2,1.77,19,4
2690 DATA-1,"CANIS MAJOR","THE BIG DOG"
2700 DATA6.7,-17,1,6.4,-18,2,6.9,-29,2,7.2,-26,2,7.4,-29,2
2710 DATA-1,"AQUILA","THE EAGLE",19.8,9,1,19.7,10.5,3,19.9,6.5,4
2720 DATA19.1,13.5,3,20.1,-1,3,19.4,3,3,19.1,-5,3
2730 DATA-1,"SCORPIUS","THE SCORPION"
2740 DATA16.5,-26,1,16,-20,2,15.9,-22,2,15.9,-26,3
2750 DATA17.6,-43,2,16.7,-34,2,17.6,-37,2,16.7,-38,3,17.2,-43,3
2760 DATA-1,"CASSIOPEIA","THE QUEEN"
2770 DATA1.9,63.5,4,1.4,60,3,0.9,60.5,2,0.6,56,2,0.1,59,2
2780 DATA-1,"ANDROMEDA","CASSIOPEIA'S DAUGHTER",2,42,2,1.1,35,2,.6,31,3
2790 DATA-1,"TAURUS","THE BULL"
2800 DATA4.6,16,1,5.6,21,3,4.3,15.5,4,4.45,19,3,4.38,17.3,4,4.45,15.9,4
2810 DATA-1,"CANIS MINOR","THE SMALL DOG",7.6,6,1,7.4,9,3
2820 DATA-1,"GEMINI","THE TWINS"
2830 DATA7.5,32,1,7.7,28,1,6.7,25,3,6.6,16,2,6.3,22,3,7.3,22,3
2840 DATA-1,"LEO","THE LION"
2850 DATA10.1,12.5,1,10.1,17,3,10.3,20,2,10.3,24,3,9.8,26,4,9.7,24,3
2860 DATA 11.2,21,2,11.2,16,3,11.8,15,2
2870 DATA-1,"CANCER","THE CRAB",8.7,29,4,8.65,22,4,8.7,18.5,4,8.9,12,4
2880 DATA8.25,9.5,4,-1,"LIBRA","THE SCALES",15.3,-9,2,14.8,-16,3
2890 DATA15.5,-14.5,4,15,-25,3
2900 DATA-1,"SAGITTARIUS","THE ARCHER"
2910 DATA18.3,-30,3,18,-30.5,3,18.4,-25,3,18.9,-26,2,19,-30,2
2920 DATA 18.7,-27,3,19.1,-28,3,18.3,-34.5,2
2930 DATA-1,"CAPRICORN","THE SEA GOAT",20.3,-15,3,20.8,-27,4,21.7,-17,3
2940 DATA21.4,-22,4,21,-18,4
2950 DATA-1,"PISCES","THE FISH",23.2,3,4,23.4,6.5,4,23.6,5.5,4
2960 DATA23.66,1.5,4,23.4,0,4
2970 DATA-1,"PISCES AUST","THE SOUTHERN FISH",22.9,-30,1
2980 DATA-1,"AQUARIUS","THE WATER BEARER"
2990 DATA22.6,-.5,3,22.5,-.5,3,22.4,1.3,4,22.35,-2,4,22.05,-.5,3,21.5,-6,3
3000 DATA-1,"CARINA","THE BOAT KEEL",6.4,-52,1
3010 DATA8.4,-59,2,9.2,-59,2,9.2,-69,2,9.8,-65,3
3020 DATA-1,"VELA","THE SAIL"
3030 DATA8.2,-47,2,8.6,-54,2,9.1,-43,2,9.3,-55,2,10.7,-49,3
3040 DATA-1,"CRUX","THE SOUTHERN CROSS"
3050 DATA12.2,-58,2,12.3,-63,2,12.5,-57,2,12.8,-59,2
3060 DATA-1,"CENTAURUS","THE CENTAUR",14.6,-61,1,14,-60,1
3070 DATA-1,"ERIDANUS","THE RIVER",1.6,-58,1
3080 DATA-1,"END"
3090 PRINT"[164][157]";:YR$=RIGHT$(YR$,LEN(YR$)-1)
3100 GETJF$:IFJF$=""THEN3100
3110 JF%=ASC(JF$)
3115 IFJF%>47ANDJF%<58THENYR$=YR$+JF$:PRINTJF$;:PRINT"[164][157]";:GOTO3100
3120 IFJF%=20ANDLEN(YR$)>0THENYR$=LEFT$(YR$,LEN(YR$)-1):PRINT" [157][157][164][157]";:GOTO3100
3130 IFJF%=13THENPRINT" ";:RETURN
3140 GOTO3100
3150 IF((YY/4=INT(YY/4))AND(YY/100<>INT(YY/100)))OR(YY/400=INT(YY/400))THEN3170
3160 L1=0:GOTO3180
3170 L1=1
3180 RETURN